Option Explicit
Sub B_Sample040()
    Dim myWb As Workbook
    Dim myWd As Window
    Set myWb = Workbooks(1)				'Nï
    Set myWd = myWb.Windows(1)
    With myWd
        MsgBox .Split					'L
        MsgBox .SplitColumn				'ܥkΦm]ơ^
        MsgBox .SplitHorizontal				'ܥkΦm]I^
        MsgBox .SplitRow				'ܤWUΦm]Cơ^
        MsgBox .SplitVertical				'ܤWUΦm]I^
    End With
    Set myWd = Nothing					'
    Set myWb = Nothing
End Sub
